homework 6

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.4.2

## ── Attaching packages ───────────────────────────────────────────── tidyverse 1.2.0 ──

## ✔ ggplot2 2.2.1     ✔ purrr   0.2.4
## ✔ tibble  1.3.4     ✔ dplyr   0.7.4
## ✔ tidyr   0.7.2     ✔ stringr 1.2.0
## ✔ readr   1.1.1     ✔ forcats 0.2.0

## Warning: package 'tidyr' was built under R version 3.4.2

## Warning: package 'purrr' was built under R version 3.4.2

## Warning: package 'dplyr' was built under R version 3.4.2

## ── Conflicts ──────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(janitor)
library(stringr)
library(forcats)
library(viridis)

## Loading required package: viridisLite

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

Load the dataset and tidy up

nynoaa=read_csv("./data/nynoaadat.zip",col_types = "cDiiidd") %>%
  clean_names()%>%
  separate(date, into = c("year", "month", "day"))

Plotly boxplot

nynoaa%>%
  mutate(snwd = as.numeric(snwd),year = as.character(year))%>%
  filter(snow>0,snow<100, year>2000) %>%
  plot_ly(x = ~ year, y = ~snow, color = ~ year, type = "box",  colors = "Set2")